Attribute VB_Name = "modBillObject"
Option Explicit

'Public Sub GetFormObject(ByRef o As Object, ByVal FormName As String)
'    Select Case FormName
'        Case "frmModBL"
'            Set o = New frmModBL
'    End Select
'End Sub


Public Function GetFormNew(ByVal FormName As String) As Object
    Select Case FormName
        Case "frmNavigatorOrder"
            Set GetFormNew = New frmNavigatorOrder
            
        Case "frmNavigatorDT"
            Set GetFormNew = New frmNavigatorDT
            
        Case "frmModBL"
            Set GetFormNew = New frmModBL
            
        Case "frmModBLR"
            Set GetFormNew = New frmModBLR
            
        Case "frmModBLRvsf"
            Set GetFormNew = New frmModBLRvsf
            
        Case "frmModBLS"
            Set GetFormNew = New frmModBLS
            
        Case "frmModBLSEdit"
            Set GetFormNew = New frmModBLSEdit
            
        Case "frmModBLSTree"
            Set GetFormNew = New frmModBLSTree
            
        Case "frmModGoods"
            Set GetFormNew = New frmModGoods
            

            
        Case "frmStorageQueryAcc"
            Set GetFormNew = New frmStorageQueryAcc
            
        Case "frmStorageQueryYarn"
            Set GetFormNew = New frmStorageQueryYarn
            
        Case "frmStorageQueryWhite"
            Set GetFormNew = New frmStorageQueryWhite
            
        Case "frmStorageQueryColor"
            Set GetFormNew = New frmStorageQueryColor
            
        Case "frmNavigatorYarn"
            Set GetFormNew = New frmNavigatorYarn
            
        Case "frmModBLROrderEx"
            Set GetFormNew = New frmModBLROrderEx
        Case "frmModBLRvsf_Order"
            Set GetFormNew = New frmModBLRvsf_Order
        Case "frmModGoods3"
            Set GetFormNew = New frmModGoods3
        Case "frmModBLSEditParts"
            Set GetFormNew = New frmModBLSEditParts
        Case "frmModBLOrder"
            Set GetFormNew = New frmModBLOrder
        Case "frmModBLPlan"
            Set GetFormNew = New frmModBLPlan
        Case "frmNavigatorProduce"
            Set GetFormNew = New frmNavigatorProduce
        Case "frmNavigatorAbout"
            Set GetFormNew = New frmNavigatorAbout
        Case "frmModBLCK"
            Set GetFormNew = New frmModBLCK
        Case "frmInvManMaterial"
            Set GetFormNew = New frmInvManMaterial
        Case "frmModBLRMaterial"
            Set GetFormNew = New frmModBLRMaterial
        Case "frmPOInput"
            Set GetFormNew = New frmPOInput
        Case "frmFPD"
            Set GetFormNew = New frmFPD
        Case "frmFPDIn"
            Set GetFormNew = New frmFPDIn
        Case "frmOrderProgress"
            Set GetFormNew = New frmOrderProgress
        Case "frmModBLRvsf_FP"
            Set GetFormNew = New frmModBLRvsf_FP
        Case "frmModBLRvsf13E011"
            Set GetFormNew = New frmModBLRvsf13E011
        Case "frmModBL12E008"
            Set GetFormNew = New frmModBL12E008
        Case "frmModBL12E009"
            Set GetFormNew = New frmModBL12E009
        Case "frmModBLA"
            Set GetFormNew = New frmModBLA
        Case "frmModBL12E010"
            Set GetFormNew = New frmModBL12E010
        Case "frmCheckout"
            Set GetFormNew = New frmCheckout
        Case "frmModBLSEdit11E002"
            Set GetFormNew = New frmModBLSEdit11E002
        Case "frmCompany"
            Set GetFormNew = New frmCompany
        Case "frmModBLMCheck"
            Set GetFormNew = New frmModBLMCheck
            
        Case "frmModBLCheckList"
            Set GetFormNew = New frmModBLCheckList
            
        Case "frmInvManMaterial01"
            Set GetFormNew = New frmInvManMaterial01
            
        Case "frmModBL12E014"
            Set GetFormNew = New frmModBL12E014
            
        Case "frmCarryDown"
            Set GetFormNew = New frmCarryDown
            
        Case "frmModBLRMaterial01"
            Set GetFormNew = New frmModBLRMaterial01
            
        Case "frmModBLRvsf13E012"
            Set GetFormNew = New frmModBLRvsf13E012
            
        Case "frmModBLRvsf13E002"
            Set GetFormNew = New frmModBLRvsf13E002
    End Select
End Function

